注册，cyl文件："cy/get-num.cyl"。
从[字符串][位置]处获取井常量
	如果[[字符串][位置]处字符]是[井符号@#\#]，
		那么，
		[系统语言常量允许值列表]=['("c" "lisp" "scheme" "python" "c++" "asm" "elisp" "java")]，
		[系统值常量允许值列表]=['("nil" "true" "false" "found" "notfound" "error" "unknown" "correct" "limited" "unlimited" "infinite" "infinitesimals" "default" "空" "真" "假" "含" "不含" "错" "未知" "对" "有限" "无限" "无穷大" "无穷小" "未找到" "系统缺省值")]，
		[系统处理常量允许值列表]=['("错误处理")]，
		[字符常量助记符允许值列表]=['("space" "newline" "tab" "空格" "回车" "制表符")]，
		遍历：字符串，[位置]+[1]；针对每组索引子项：当前位置，当前字符；执行，
	
				分类：若[当前字符]是[反斜线符号@#\\]，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
					如果[返回字符串]是[错误]，函数返回[,(从[位置]到[[位置]+[3]]的[字符串]子串 [位置]+[2] '字符常量)]，
						否则，如果[[返回字符串]长度]==[1]，函数返回[,(从[位置]到[[位置]+[3]]的[字符串]子串 [位置]+[2] '字符常量)]，
						     否则，如果[返回字符串]是[字符常量助记符允许值列表]成员，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '字符常量)]，
						          否则，函数返回[,(错误 当前位置 #非法字符常量 "不允许的字符常量助记符")]。
						     宏终结语句。
						宏终结语句。
				     若[当前字符]是[引号@#\"]，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][当前位置]处获取字符串]，
					如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法字符串常量 "未找到匹配的引号")]；
						否则，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '字符串常量)]。
				     若[当前字符]是[#\&]，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
				        如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法系统语言常量 "#&后非法词语")]；
					        否则，如果[返回字符串]是[系统语言常量允许值列表]成员，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '系统语言常量)]；
						        否则，函数返回[,(错误 当前位置 #非法系统语言常量 "未定义系统语言常量")]。
						     宏终结语句。
				     若[当前字符]是[#\%]，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
				        如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法系统值常量 "#%后非法词语")]；
					        否则，如果[返回字符串]是[系统值常量允许值列表]成员，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '系统值常量)]；
						        否则，函数返回[,(错误 当前位置 #非法系统值常量 "未定义系统值常量")]。
						     宏终结语句。
				     若[当前字符]是[#\$]，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
				        如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法系统处理常量 "#$后非法词语")]；
					        否则，如果[返回字符串]是[系统处理常量允许值列表]成员，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '系统处理常量)]；
						        否则，函数返回[,(错误 当前位置 #非法系统处理常量 "未定义系统处理常量")]。
						     宏终结语句。
				     若[当前字符]是[#\^]，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
				        如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法系统变量常数 "#^后非法词语")]；
					        否则，如果[返回状态]是[#词语]，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '系统变量常数)]；
						        否则，函数返回[,(错误 当前位置 #非法系统变量常数 "不允许数值作为系统变量常数符号")]。
						     宏终结语句。
 				     若[当前字符]是[#\*]，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
				        如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法存储长度 "#*后非法数值")]；
					        否则，如果[返回状态]是[#整数]，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '存储长度)]；
						        否则，函数返回[,(错误 当前位置 #非法存储长度 "只允许整数作为存储长度内容")]。
						     宏终结语句。
 				     若[当前字符]是[#\']，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
				        如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法扩展常量 "#'后非法词语")]；
					        否则，如果[返回状态]是[#词语]，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '扩展常量)]；
						        否则，函数返回[,(错误 当前位置 #非法扩展常量 "不允许数值作为扩展常量内容")]。
						     宏终结语句。
 				     若[当前字符]是[#\b]，[返回字符串]=[从[字符串][[当前位置]+[1]]处获取二进制常数]，
				        如果[返回字符串]是列表，函数返回[,(错误 当前位置 #非法二进制常数 "#b后非法二进制常数")]；
					        否则，函数返回[,(从[位置]到[[当前位置]+[[返回字符串]长度]+[1]]的[字符串]子串 [当前位置]+[[返回字符串]长度] '二进制常数)]。
				     若[当前字符]是[#\o]，[返回字符串]=[从[字符串][[当前位置]+[1]]处获取八进制常数]，
				        如果[返回字符串]是列表，函数返回[,(错误 当前位置 #非法八进制常数 "#o后非法八进制常数")]；
					        否则，函数返回[,(从[位置]到[[当前位置]+[[返回字符串]长度]+[1]]的[字符串]子串 [当前位置]+[[返回字符串]长度] '八进制常数)]。
 				     若[当前字符]是[#\x]，[返回字符串]=[从[字符串][[当前位置]+[1]]处获取十六进制常数]，
				        如果[返回字符串]是列表，函数返回[,(错误 当前位置 #非法十六进制常数 "#x后非法十六进制常数")]；
 					        否则，函数返回[,(从[位置]到[[当前位置]+[[返回字符串]长度]+[1]]的[字符串]子串 [当前位置]+[[返回字符串]长度] '十六进制常数)]。
				     若[当前字符]是[#\d]，[返回字符串]=[从[字符串][[当前位置]+[1]]处获取十进制常数]，
				        如果[返回字符串]是列表，函数返回[,(错误 当前位置 #非法十六进制常数 "#d后非法十进制常数")]；
					        否则，函数返回[,(从[位置]到[[当前位置]+[[返回字符串]长度]+[1]]的[字符串]子串 [当前位置]+[[返回字符串]长度] '十进制常数)]。			     若[当前字符]是[#\#]，[返回字符串]=[从[字符串][位置]开始到匹配[#\回车]的子串]，
					如果[返回字符串]是[假]，函数返回[,(错误 当前位置 #非法单行注释 "未匹配到回车字符")]；
						否则，函数返回[,(返回字符串 [[位置]+[[返回字符串]长度]]-[1] '单行注释)]。									     若[当前字符]是[#\!]，[返回字符串]=[从[字符串][位置]开始到匹配[#\回车]的子串]，
					如果[返回字符串]是[假]，函数返回[,(错误 当前位置 #非法开发注释 "未匹配到回车字符")]；
						否则，函数返回[,(返回字符串 [[位置]+[[返回字符串]长度]]-[1] '开发注释)]。
				     若[当前字符]是[#\<]，[返回字符串]=[从[字符串][位置]开始到匹配[#\#][#\>]的子串]，
					如果[返回字符串]是[假]，函数返回[,(错误 当前位置 #非法多行注释 "未匹配到#>")]；
						否则，函数返回[,(返回字符串 [[位置]+[[返回字符串]长度]]-[1] '多行注释)]。      
				     否则，[[返回字符串]、[当前位置]、[返回状态]]=[从[字符串][[当前位置]+[1]]处获取词语]，
				          如果[返回字符串]是[错误]，函数返回[,(错误 当前位置 #非法常量 规格化["#后不允许是~a"][返回状态])]；
					      否则，如果[返回状态]是[#整数]，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '十进制常数)]；
					                否则，函数返回[,(从[位置]到[[当前位置]+[1]]的[字符串]子串 当前位置 '扩展常量)]。
							
[字符串][位置]处字符
	(string-ref 字符串 位置)。
[元素]是[列表]成员
	(member 元素 列表)。
[字符子串]、...字符串连接
	(apply string-append 字符子串)。
从[字符串][位置]处获取字符串
	如果[[字符串][位置]处字符]是[#\"]，那么，[返回字符串]=[从[字符串][[位置]+[1]]开始到匹配[#\"]的子串]，
		如果[返回字符串]是[假]，,(错误 位置 #非法字符串 "未找到对应的引号")，否则，,(返回字符串 [位置]+[[返回字符串]长度]+[1] '字符串)。
从[字符串][位置]开始到匹配[指定字符]的子串
	(rd-match-not 字符串 位置 指定字符)。
从[字符串][位置]开始到匹配[指定字符1][指定字符2]的子串
	(rd-match2-in 字符串 位置 指定字符1 指定字符2)。
从[字符串][位置]处获取二进制常数
	(get-bin 字符串 位置)。
从[字符串][位置]处获取八进制常数
	(get-oct 字符串 位置)。
从[字符串][位置]处获取十进制常数
	(get-dec 字符串 位置)。
从[字符串][位置]处获取十六进制常数
	(get-hex 字符串 位置)。
从[字符串][位置]处获取词语
	(get-sym 字符串 位置)。
[类型]是列表
	(list? 类型)。


	

			
				       
